home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 171 / 171.d81 / demo 2 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  152b  |  6 lines
  1. 10 print"[147]":t=1
  2. 20 q$="[165][165][212][212][199][194][194][200][217][167][167][167][217][200][194][194][199][212][165]":q$=q$+q$:poke53281,c:poke53280,c
  3. 30 t=t+1:poke646,t:fors=1to150:q$=mid$(q$,2,55)+left$(q$,1)
  4. 40 printq$:next:c=int(rnd(0)*16)
  5. 50 goto20
  6.